home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Popular Request
/
By Popular Request (Arsenal Computer)(SysOptics Distribution System).ISO
/
amiga3
/
ms-ad11.lha
/
xlha2lha
< prev
next >
Wrap
AmigaDOS Script File
|
1993-12-14
|
934b
|
41 lines
.KEY NEWN,PATHF,FN
.BRA {
.KET }
failat 21
changetaskpri -1
;make RAM the current directory
CD RAM:
;create the directory {FN} in RAM:, CD there and delete anything that might already exist there
makedir {FN}
cd {FN}/
delete #?
lha -a -m -M -p -x -X x "{PATHF}"
;Incase files are protected
protect #? +rwed all
; Delete unwanted text!
delete ZZ#? #?foo #?displayme lztext BBS.txt
;DELETE ORIGINAL UD FILE!
delete "{PATHF}"
;re-compress file
lha -m -x -a -r -X -y -2 a "{PATHF}" #?
cd TX:
;remove the temporary directory and it's files
delete {FN} ALL
;add our description text if existent
;Another script (or this one) should already have been used to copy the .sdn
;textfile to the same directory that the file {FN} is in.
AddDescript DEV UDBase0: EXT .sdn {NEWN}
;Look for and add FILE_ID.DIZ to the short or long desciption
;MUST BE RUNBACK'd!! -> See AddDescript docs.
runback pfiles:AddDescript DEV UDBase0: DIZ {NEWN}